home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n01.arc / BCOPY.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-12-13  |  12.0 KB  |  161 lines
  1. 100 REM - BASIC PROGRAM TO CREATE BCOPY.COM   
  2. 110 CLS:PRINT "Creating BCOPY.COM   ": OPEN "BCOPY.COM   " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   142
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   142 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "BCOPY.COM    created successfully": SYSTEM
  17. 260 PRINT: PRINT "BCOPY.COM    is not valid!": END
  18. 270 DATA E9, AA,  5, 42, 43, 4F, 50, 59, 20, 31, 2E, 30, 20, 28, 63, 29,   498
  19. 280 DATA 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75,   4CB
  20. 290 DATA 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A, 50,   52F
  21. 300 DATA 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 44, 6F, 75,   5F5
  22. 310 DATA 67, 6C, 61, 73, 20, 42, 6F, 6C, 69, 6E, 67,  D,  A, 55, 73, 61,   562
  23. 320 DATA 67, 65, 3A, 20, 42, 43, 4F, 50, 59, 20, 5B, 73, 6F, 75, 72, 63,   54A
  24. 330 DATA 65, 20, 5B, 74, 61, 72, 67, 65, 74, 5D, 5D, 5B, 2F, 58, 5D, 5B,   5BB
  25. 340 DATA 2F, 55, 5D, 24, 1A,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 10,   12F
  26. 350 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  27. 360 DATA  0, 1C,  7, 1C, 17,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    56
  28. 370 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  29. 380 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  30. 390 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 9C, 2E, FF,   1C9
  31. 400 DATA 1E, 95,  1, FA, 2E, 80, 3E, 7F,  1,  0, 7F, 3F, 2E, 80, 3E, 81,   545
  32. 410 DATA  1,  0, 75, 3C, 2E, 80, 3E, 80,  1,  0, 75, 34,  6, 57, 2E, C4,   417
  33. 420 DATA 3E, 75,  1, 26, 80, 3D,  0, 5F,  7, 75, 25, 2E, 80, 3E, 90,  1,   414
  34. 430 DATA  0, 75,  F, 2E, 80, 3E, 82,  1,  0, 74, 15, E8, 4F,  3, 73, 10,   439
  35. 440 DATA EB,  3, E8, 71,  0, 2E, C6,  6, 7F,  1, 11, 2E, FE,  E, 7F,  1,   58C
  36. 450 DATA CF, 9C, 2E, FF, 1E, 9D,  1, FA, 2E, 80, 3E, 90,  1,  0, 74, 30,   66F
  37. 460 DATA 2E, 80, 3E, 7F,  1,  8, 77, 28, 2E, 80, 3E, 81,  1,  0, 75, 20,   416
  38. 470 DATA 2E, 80, 3E, 80,  1,  0, 75, 18,  6, 57, 2E, C4, 3E, 79,  1, 26,   427
  39. 480 DATA 80, 3D,  0, 5F,  7, 75,  9, E8, 2C,  0, 2E, C6,  6, 7F,  1, 10,   43F
  40. 490 DATA CF, 9C, 2E, FE,  6, 80,  1, 9D, 9C, 2E, FF, 1E, 99,  1, 9C, 2E,   706
  41. 500 DATA FE,  E, 80,  1, 9D, CA,  2,  0, 32, C0, 2E, 81, 3E, 7D,  1,  A,   55D
  42. 510 DATA  3, 7C,  2,  4,  3, CF, 2E, FE,  6, 81,  1, FA, 2E, 8C, 16, A7,   57C
  43. 520 DATA  1, 2E, 89, 26, A9,  1,  E, 17, BC, 1C,  7, FB, E8, 98,  2, B8,   5C1
  44. 530 DATA 1B, 35, CD, 21, 89, 1E, C1,  1, 8C,  6, C3,  1, B8, 1B, 25, BA,   5AF
  45. 540 DATA 60,  2, CD, 21, B8, 23, 35, CD, 21, 89, 1E, C5,  1, 8C,  6, C7,   614
  46. 550 DATA  1, B8, 23, 25, BA, 60,  2, CD, 21, B8, 24, 35, CD, 21, 89, 1E,   5B1
  47. 560 DATA C9,  1, 8C,  6, CB,  1, B8, 24, 25,  E, 1F, BA, 78,  2, CD, 21,   578
  48. 570 DATA B4, 51, E8, 2D,  2, 89, 1E, A5,  1,  E, 5B, B4, 50, E8, 22,  2,   5E2
  49. 580 DATA B4, 2F, CD, 21, 89, 1E, A1,  1, 8C,  6, A3,  1, BA, 80,  0, B4,   63E
  50. 590 DATA 1A, CD, 21, 81, 3E, 7D,  1,  A,  3, 72, 25, 1E, 33, DB, B4, 59,   522
  51. 600 DATA CD, 21, 2E, 8C, 1E, B7,  1, 1F, 53, BB, AB,  1, 89,  7, 8F, 47,   5BD
  52. 610 DATA  2, 89, 4F,  4, 89, 57,  6, 89, 77,  8, 89, 7F,  A, 8C, 47,  E,   4BF
  53. 620 DATA 80, 3E, 89,  1,  0, 74, 1B, B4, 47, 8B, 16, 8A,  1, CD, 67,  A,   53C
  54. 630 DATA E4, 75, 4F, B8,  0, 44, 33, DB, 8B, 16, 8A,  1, CD, 67,  A, E4,   700
  55. 640 DATA 75, 40, 8E,  6, 8C,  1, 8E, 1E, 8C,  1, 2E, 8B, 36, 8E,  1, 8B,   518
  56. 650 DATA 44,  2,  A, E4, 75, 40, 83, C6,  6, 8B, D6, 33, C9, B4, 4E,  A,   6A1
  57. 660 DATA C0, 74,  2, FE, C4, CD, 21, 73,  3, E9, B5,  0, 32, D2, E8, 41,   827
  58. 670 DATA  1, 2E, 8B, 16, 91,  1, B8,  0, 3D, CD, 21, 73,  B, 3D,  4,  0,   404
  59. 680 DATA 75,  3, E9, C4,  0, E9, 99,  0, 2E, A3, 85,  1, 2E, 8B, 36, 8E,   67B
  60. 690 DATA  1, C7, 44,  2,  1,  1, 8B, 44,  4,  A, C0, 75, 1F, E8, 46,  1,   470
  61. 700 DATA B4, 3C, 33, C9, CD, 21, 73,  7, 3D,  4,  0, 74, D5, EB, 72, 2E,   669
  62. 710 DATA A3, 87,  1, 2E, 8B, 36, 8E,  1, C6, 44,  4,  1, 2E, 8B,  E, 93,   512
  63. 720 DATA  1, 2E, 2B,  E, 91,  1, 83, E9,  4, 2E, 8B, 1E, 85,  1, 2E, 8B,   480
  64. 730 DATA 16, 91,  1, B4, 3F, CD, 21, 73,  5, BF,  1,  0, EB, 1C, 8B, F1,   644
  65. 740 DATA 8B, C8, B4, 40, 2E, 8B, 1E, 87,  1, CD, 21, 72,  6, 33, FF, 3B,   679
  66. 750 DATA C1, 74,  3, 47, EB,  4, 3B, F0, 74, 4F, 2E, 8B, 36, 8E,  1, C7,   6A1
  67. 760 DATA 44,  3,  0,  0, 2E, 8B, 1E, 85,  1, B4, 3E, CD, 21, 2E, 8B, 1E,   45B
  68. 770 DATA 87,  1, B4, 3E, CD, 21,  B, FF, 74, 2F, E8, C9,  0, B4, 41, CD,   788
  69. 780 DATA 21, 2E, 8B, 3E, 8E,  1, 8B, 35, 83, 3C, FF, 74,  C, 8B,  C, 2B,   567
  70. 790 DATA CE, 8B, DF, F3, A4, 89, 3F, EB, EF, C7,  5, FF, FF, 47, 47, 2E,   9F7
  71. 800 DATA 89, 3E, 91,  1, 2E, FE,  E, 90,  1,  E, 1F, 81, 3E, 7D,  1,  A,   498
  72. 810 DATA  3, 72,  8, B8,  A, 5D, BA, AB,  1, CD, 21, 80, 3E, 89,  1,  0,   538
  73. 820 DATA 74,  8, B4, 48, 8B, 16, 8A,  1, CD, 67, 8B, 1E, A5,  1, B4, 50,   62B
  74. 830 DATA E8, 8F,  0,  6, C4, 16, A1,  1, B4, 1A, CD, 21,  7, 1E, B8, 24,   5B6
  75. 840 DATA 25, 2E, C5, 16, C9,  1, CD, 21, B8, 23, 25, 2E, C5, 16, C5,  1,   5B5
  76. 850 DATA CD, 21, B8, 1B, 25, 2E, C5, 16, C1,  1, CD, 21, 1F, E8, 9B,  0,   641
  77. 860 DATA FA, 2E, 8E, 16, A7,  1, 2E, 8B, 26, A9,  1, FB, 2E, FE,  E, 81,   6B3
  78. 870 DATA  1, C3, 50, B9, 4B,  0, 2E, 8B, 3E, 91,  1, AC, AA,  A, C0, 75,   636
  79. 880 DATA FA,  A, D2, 74,  7, 26, 80, 7D, FE, 5C, 75, 18, FD, B9,  F,  0,   720
  80. 890 DATA B0, 5C, 4F, F2, AE, FC, 47, 47, 1E,  E, 1F, BE, 9E,  0, B9,  D,   6F2
  81. 900 DATA  0, F3, A4, 1F, 58, C3, 2E, 8B, 3E, 8E,  1, 83, C7,  6, 32, C0,   699
  82. 910 DATA B9, 4B,  0, F2, AE, 8B, F7, B2,  1, E8, B6, FF, 2E, 8B, 16, 91,   8D6
  83. 920 DATA  1, C3, 2E, 81, 3E, 7D,  1,  A,  3, 73, 19, 1E, 57, 2E, C5, 3E,   46E
  84. 930 DATA 79,  1, FE,  5, 5F, 1F, CD, 21, 1E, 57, 2E, C5, 3E, 79,  1, FE,   607
  85. 940 DATA  D, 5F, 1F, C3, CD, 21, C3, 2E, 8F,  6, 83,  1, 50, 53, 51, 52,   58C
  86. 950 DATA 55, 56, 57, 1E,  6,  E, 1F, FF, 26, 83,  1, 8F,  6, 83,  1,  7,   41C
  87. 960 DATA 1F, 5F, 5E, 5D, 5A, 59, 5B, 58, 2E, FF, 26, 83,  1, 2E, FE,  6,   5A8
  88. 970 DATA 81,  1, E8, D2, FF, B0,  8, E8, 5B,  0, 75, 56, B0, 13, E8, 54,   800
  89. 980 DATA  0, 75, 4F, B0, 28, E8, 4D,  0, 75, 48, 80, 3E, 89,  1,  0, 74,   54A
  90. 990 DATA  C, B4, 45, 8B, 16, 8A,  1, CD, 67,  A, E4, 75, 35,  E,  7, B4,   5C6
  91. 1000 DATA 49, CD, 21, 72, 2D, 1E, B8,  8, 25, 26, C5, 16, 95,  1, CD, 21,   55E
  92. 1010 DATA B8, 13, 25, 26, C5, 16, 99,  1, CD, 21, B8, 28, 25, 26, C5, 16,   57F
  93. 1020 DATA 9D,  1, CD, 21, 1F, F7, 16,  0,  1, F8, FE,  E, 81,  1, E8, 8A,   6B1
  94. 1030 DATA FF, C3, F9, EB, F5,  E, 59, B4, 35, CD, 21, 8C, C0, 3B, C1, C3,   9E4
  95. 1040 DATA 8B, 3E, 8E,  1, 8E,  6, 8C,  1, BE, DB,  9, E8, 1E,  0, 89, 3E,   5E8
  96. 1050 DATA 91,  1, FE,  6, 90,  1, FE,  E, 81,  1, B8,  0, 31, BA, 72,  1,   5CB
  97. 1060 DATA 80, 3E, 89,  1,  0, 74,  3, BA, 72,  0, CD, 21, 8B, DF, BA,  2,   5FF
  98. 1070 DATA  0,  3, FA, 33, C0, AB, AB, AC, AA, 3C,  0, 75, FA, FE, CA, 75,   884
  99. 1080 DATA F6, 26, 89, 3F, 26, C7,  5, FF, FF, 47, 47, C3, 53, 6F, 75, 72,   7CE
  100. 1090 DATA 63, 65, 20, 66, 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E,   5D1
  101. 1100 DATA 64, 24, 42, 61, 64, 20, 74, 61, 72, 67, 65, 74, 20, 70, 61, 74,   59B
  102. 1110 DATA 68, 24, 43, 61, 6E, 27, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 24,   574
  103. 1120 DATA 44, 75, 70, 2E, 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65, 73, 24,   56F
  104. 1130 DATA 42, 61, 64, 20, 53, 77, 69, 74, 63, 68, 24, 28, 41, 6C, 72, 65,   569
  105. 1140 DATA 61, 64, 79, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64, 29, 24, 45,   5B0
  106. 1150 DATA 4D, 53, 20, 64, 72, 69, 76, 65, 72, 20, 65, 72, 72, 6F, 72, 24,   5BA
  107. 1160 DATA 44, 65, 69, 6E, 73, 74, 61, 6C, 6C, 20, 71, 75, 65, 75, 65, 64,   649
  108. 1170 DATA 24,  0,  0,  0,  0, 45, 4D, 4D, 58, 58, 58, 58, 30, BA,  3,  1,   351
  109. 1180 DATA E8, 7D,  2, FC, B4, 30, CD, 21, 86, C4, A3, 7D,  1, B4, 19, CD,   83A
  110. 1190 DATA 21, FE, C0, A2, A4,  6, F7, 16,  0,  1, BB,  0,  6, 8C, C8, 43,   691
  111. 1200 DATA 8E, C3, 3B, C3, 74, 16, BE,  0,  1, 8B, FE, B9, 10,  0, F3, A6,   783
  112. 1210 DATA 75, ED, FE,  6, A3,  6, BA, 6B,  6, E8, 44,  2, 26, FE,  6, 81,   713
  113. 1220 DATA  1, 8C,  6, A1,  6,  E,  7, BF, 80,  0, 8A,  D,  A, C9, 75,  3,   470
  114. 1230 DATA E9, 12,  1, 32, ED, 47, 51, 57, B0, 2F, F2, AE, 75, 40, 8A, 25,   6ED
  115. 1240 DATA 80, E4, DF, 80, FC, 55, 74,  E, 80, FC, 58, 74, 1C, BA, 60,  6,   81A
  116. 1250 DATA 83, C4,  4, E9, F9,  0,  6, 8E,  6, A1,  6, 26, FE,  6, 82,  1,   61B
  117. 1260 DATA  7, BA, 90,  6, E8, F9,  1, EB, CF, 80, 3E, A3,  6,  0, 74,  8,   6D6
  118. 1270 DATA BA, 60,  6, E8, EA,  1, EB, C0, FE,  6, 89,  1, EB, BA, 5E, 59,   888
  119. 1280 DATA BF, DB,  9, E8, E6,  1, 57, 4E, E8, E1,  1, 5E, BA, DB,  9, B9,   896
  120. 1290 DATA  0,  0, B4, 4E, CD, 21, 8B, D6, 73,  6, BA, 1C,  6, E9, AF,  0,   63E
  121. 1300 DATA 52, 8B, 14, BE,  7,  B, 89, 14, C6, 44,  2, 5C, 83, C6,  3, 80,   592
  122. 1310 DATA EA, 40, B4, 47, CD, 21, 5A, 72, 2A, B4, 3B, CD, 21, 72, 16, 8B,   6F9
  123. 1320 DATA D6, 83, EA,  3, B4, 3B, CD, 21, 80, 7D, FE, 5C, 74, 1A, C7, 45,   814
  124. 1330 DATA FF, 5C,  0, EB, 13, B9,  0,  0, B4, 4E, CD, 21, 73,  A, 3D,  3,   5BF
  125. 1340 DATA  0, 75,  5, BA, 32,  6, EB, 67, BE, DB,  9, 8B, FA, 8B, CA, 2B,   765
  126. 1350 DATA CE, F3, A6, 74,  E, B8, 5C,  0, 39, 45, FE, 75,  B, 8B, FE, F2,   874
  127. 1360 DATA AE, 74,  5, BA, 50,  6, EB, 47, 80, 3E, A3,  6,  0, 74, 51, BE,   653
  128. 1370 DATA DB,  9, 1E, 8E, 1E, A1,  6, 80, 3E, 81,  1,  1, 75, F9, 8B, 3E,   5CD
  129. 1380 DATA 8E,  1, 8E,  6, 8C,  1, B8, FF, FF, 26, 39,  5, 74,  5, 26, 8B,   5F4
  130. 1390 DATA 3D, EB, F3, 1F, E8, F5, FD, 8E,  6, A1,  6, 26, 89, 3E, 91,  1,   7CE
  131. 1400 DATA 26, FE,  6, 90,  1, 26, FE,  E, 81,  1, B8,  0, 4C, CD, 21, E8,   649
  132. 1410 DATA  E,  1, 8E,  6, A1,  6, 26, FE,  E, 81,  1, B8,  1, 4C, CD, 21,   4F1
  133. 1420 DATA B4, 34, CD, 21, 89, 1E, 75,  1, 8C,  6, 77,  1, B8, 80, 3E, B9,   62C
  134. 1430 DATA  0, 20, 8B, FB, F2, AF, E3,  9, 26, 80, 7D,  5, BC, 74, 1A, EB,   790
  135. 1440 DATA F3, B9,  0, 20, 43, 8B, FB, F2, AF, E3,  9, 26, 80, 7D,  5, BC,   806
  136. 1450 DATA 74,  7, EB, F3, BA, 42,  6, EB, B6, 26, 8B,  5, A3, 79,  1, 8C,   75B
  137. 1460 DATA  6, 7B,  1,  E, 8F,  6, 8C,  1, 80, 3E, 89,  1,  0, 74, 5B,  6,   3CF
  138. 1470 DATA 57, B8, 67, 35, CD, 21, BF,  A,  0, BE, A5,  6, B9,  8,  0, FC,   688
  139. 1480 DATA F3, A6, 5F,  7, 74,  5, BA, 7F,  6, EB, 84, F9, B4, 40, CD, 67,   847
  140. 1490 DATA  A, E4, 75, F2, B4, 41, CD, 67,  A, E4, 75, EA, 89, 1E, 8C,  1,   7FF
  141. 1500 DATA B4, 43, BB,  1,  0, CD, 67,  A, E4, 75, DB, 89, 16, 8A,  1, B8,   707
  142. 1510 DATA  0, 44, 33, DB, 8B, 16, 8A,  1, CD, 67,  A, E4, 75, C8, C7,  6,   6AA
  143. 1520 DATA 93,  1,  0, 10, C7,  6, 91,  1,  0,  0, 8B, 1E, 91,  1, 89, 1E,   3E5
  144. 1530 DATA 8E,  1, B8,  8, 35, CD, 21, 89, 1E, 95,  1, 8C,  6, 97,  1, B8,   591
  145. 1540 DATA  8, 25, BA, CD,  1, CD, 21, B8, 13, 35, CD, 21, 89, 1E, 99,  1,   5D2
  146. 1550 DATA 8C,  6, 9B,  1, B8, 13, 25, BA, 61,  2, CD, 21, B8, 28, 35, CD,   60B
  147. 1560 DATA 21, 89, 1E, 9D,  1, 8C,  6, 9F,  1, B8, 28, 25, BA, 21,  2, CD,   547
  148. 1570 DATA 21, A1, 2C,  0, 8E, C0, B4, 49,  E,  7, E9, A3, FC,  D,  A, 24,   611
  149. 1580 DATA B4,  9, CD, 21, BA, 2D,  9, B4,  9, CD, 21, C3, E8, 7D,  0, 9F,   70D
  150. 1590 DATA 3C,  D, 74,  9, 3C, 2F, 74,  5, 9E, 72, F1, EB,  5, C7, 44, FF,   6A5
  151. 1600 DATA  0,  0, 4E, 80, 7C,  1, 3A, 74,  B, A0, A4,  6, 8A, D0,  4, 40,   4EC
  152. 1610 DATA B4, 3A, EB,  8, AD, 24, DF, 8A, D0, 80, EA, 40, AB, 8B, DF, B0,   95A
  153. 1620 DATA 5C, 38,  4, 74, 1F, AA, 56, 8B, F7, B4, 47, CD, 21, B9, 40,  0,   68F
  154. 1630 DATA B0,  0, F2, AE, 4F, 5E, 83, F9, 3F, 7D,  9, E8, 2E,  0, 72, 28,   6EE
  155. 1640 DATA 4E, B0, 5C, AA, B9, 4B,  0, 32, E4, E8, 20,  0, 72, 1A, AA, 3D,   699
  156. 1650 DATA 2E, 2E, 75, 10, FD, 83, EF,  4, B0, 5C, 51, 8B, CF, 2B, CB, F2,   7F3
  157. 1660 DATA AE, 59, FC, 47, 8A, E0, E2, E1, 32, C0, AA, C3, AC, 3C, 20, 7E,   95C
  158. 1670 DATA 18, 3C, 2C, 74, 14, 3C, 3B, 74, 10, 3C, 3D, 74,  C, 3C, 61, 72,   40B
  159. 1680 DATA  6, 3C, 7A, 77,  2, 24, DF, F8, C3, F9, C3,  0,  0,  0,  0,  0,   5AF
  160. 1690 DATA 214792
  161.